$file = $ARGV[0];
chomp($file);
open(BUFF,$file);
$line = <BUFF>;
chomp($line);
$line =~ s/\.gz//g;
@array1 = split("\t",$line);
for($i=0;$i<@array1;$i++)
{
	$hash{$array1[$i]} =0; 

}
while($line = <BUFF>)
{
	chomp($line);
	@array = split(/\t/,$line);
	for($i=1;$i<@array;$i++)	
	{
		if($array[$i] < 0.0601)
		{
			$hash{$array1[$i-1]}++;
		}
	}
}
for($i=0;$i<@array1;$i++)
{
        print $array1[$i]."\t".$hash{$array1[$i]}."\n";

}
	
